home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex (VCA Interactive) / Virtual Sex (VCA Interactive).iso / mac / Virtual Sex 68K Mac / VS_MS / 00046.ls < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.4 KB  |  73 lines
  1. global gMoodS, gStateS, gAnswersS, gWin, gJR, gTM, gMS
  2.  
  3. on startMovie
  4.   set gAnswersS to 1
  5. end
  6.  
  7. on PickMood
  8.   set gMoodS to random(3)
  9.   if gMoodS = 1 then
  10.     play frame "MoodBad"
  11.   else
  12.     nothing()
  13.   end if
  14.   if gMoodS = 2 then
  15.     play frame "MoodTired"
  16.   else
  17.     nothing()
  18.   end if
  19.   if gMoodS = 3 then
  20.     play frame "MoodHorny"
  21.   else
  22.     nothing()
  23.   end if
  24. end
  25.  
  26. on stateOfBeing
  27.   set gStateS to 3
  28.   set the castNum of sprite 14 to gStateS
  29.   updateStage()
  30. end
  31.  
  32. on Aanswer i, y
  33.   set myList to list("HT4.AIF", "LT.AIF", "NC1.AIF", "R1.AIF", "SS1.AIF", "ST1.AIF", "WC1.AIF", "T1.AIF", "UH1.AIF")
  34.   set z to random(9)
  35.   set mySound to getAt(myList, z)
  36.   if gAnswersS = i then
  37.     set gStateS to gStateS + 1
  38.     if gStateS > 6 then
  39.       set gStateS to 6
  40.     end if
  41.     set the castNum of sprite 14 to gStateS
  42.     updateStage()
  43.     set gAnswersS to gAnswersS + 1
  44.     if y = 9 then
  45.       play frame the frame + 4
  46.     else
  47.       play frame the frame + 1
  48.     end if
  49.   end if
  50.   if gAnswersS <> i then
  51.     set gStateS to gStateS - 1
  52.     if gStateS = 0 then
  53.       play frame "fin"
  54.     else
  55.       puppetSound(mySound)
  56.       set the castNum of sprite 14 to gStateS
  57.       play frame the frame
  58.     end if
  59.   end if
  60. end
  61.  
  62. on winner
  63.   set gWin to gWin + 1
  64.   play movie "Virtual Sex:MAIN"
  65. end
  66.  
  67. on clearTheBitches
  68.   set gJR to 0
  69.   set gTM to 0
  70.   set gMS to 0
  71.   play movie "Virtual Sex:MAIN"
  72. end
  73.